home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / TYPEFACES.SHK / TYPEFACES / BEAGLE NEWS.bas < prev    next >
BASIC Source File  |  2000-01-01  |  2KB  |  20 lines
  1. 13  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>       <CTRL-M>BUY DOS BOSS & PREVENT LISTING!<CTRL-G><CTRL-M><CTRL-D>FP
  2. 15  TEXT :V = 1:NB = 51:BZ =  -16336: GOSUB 160:NB = 1: FOR I = 1 TO 24: GOSUB 160: TEXT : PRINT : NEXT : HOME 
  3. 20  INVERSE : PRINT " BEAGLE BROS DISKLIST ";: NORMAL : PRINT "   (DECEMBER 1982)----------------------": FOR I = 1 TO 51: GOSUB 170: NEXT :NB = 19: GOSUB 160:NB = 9
  4. 25 A$ = " ALPHA PLOT ......................$39.50  HI-RES GRAPHICS/TEXT UTILITY":N = 12: GOSUB 999: GOSUB 160
  5. 30 A$ = " APPLE MECHANIC .................. 29.50  SHAPE TABLE/BYTE ZAP UTILITY":N = 16: GOSUB 999
  6. 35 A$ = " BEAGLE BAG ...................... 29.50    -GAMES-PLUS ON ONE DISK":N = 12: GOSUB 999
  7. 40 A$ = " DOS BOSS ........................ 24.00  DISK COMMAND EDITOR":N = 10: GOSUB 999
  8. 50 A$ = " FLEX TEXT ....................... 29.50    -COLUMN TEXT UTILITY":N = 11: GOSUB 999
  9. 60 A$ = " FRAME-UP ........................ 29.50  HI-RES " + CHR$(34) +"SLIDE PROJECTOR" + CHR$(34) +" UTILITY":N = 10: GOSUB 999
  10. 70 A$ = " PRONTO-DOS ...................... 29.50  TRIPLE-SPEED LOADING & SAVING":N = 12: GOSUB 999
  11. 80 A$ = " TIP DISK #1 ..................... 20.00  100 PROGRAMS FROM TIP BOOKS 1-":N = 13: GOSUB 999
  12. 85 A$ = " TYPEFACES ....................... 20.00     FONTS FOR APPLE MECHANIC":N = 11: GOSUB 999
  13. 90 A$ = " UTILITY CITY .................... 29.50     USEFUL UTILITIES ON ONE DISK":N = 14: GOSUB 999
  14. 100 N = 12:V = 9:H = 3: GOSUB 9999:N = 70:V = 13:H = 3: GOSUB 9999:N = 4:V = 19:H = 33: GOSUB 9999:N = 26:V = 21:H = 3: GOSUB 9999:N = 21:V = 23:H = 3: GOSUB 9999
  15. 110  POKE 49385,0:A$ = "  GET ON OUR LIST. WE MAIL GREAT MAIL! ": POKE 49384,0: FOR I = 20 TO 39: VTAB 24: HTAB I: PRINT  MID$ (A$,I,1);: HTAB 40 -I: PRINT  MID$ (A$,40 -I,1);: FOR J = 1 TO 5: NEXT : NEXT 
  16. 150 NB = 123: GOSUB 160: VTAB 23: END 
  17. 160 TX = 49237: FOR K = 1 TO NB: POKE TX,0: TEXT : FOR J = 1 TO 1: NEXT :S =  PEEK( -16336): NEXT : VTAB 22: POKE  -16368,0: RETURN 
  18. 170 TX = 49237: FOR K = 1 TO NB: POKE TX,0: TEXT : NEXT : VTAB 22: POKE  -16368,0: RETURN 
  19. 999  GOSUB 160:V = V +2: FOR I = 23 TO V  STEP  -1: VTAB I: HTAB 1: INVERSE : PRINT  LEFT$(A$,N);: NORMAL : PRINT  RIGHT$(A$, LEN(A$) -N);: CALL  -958:S =  PEEK(BZ): NEXT : RETURN 
  20. 9999 V = V -1: VTAB V: FOR I = 0 TO N  STEP 1 +(N >69): HTAB H: PRINT I;: FOR J = 1 TO 2:S =  PEEK( -16336): NEXT : NEXT : RETURN